home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v10n15.arc / POW.PAS < prev    next >
Pascal/Delphi Source File  |  1991-08-09  |  373b  |  20 lines
  1. {$N+,E+}
  2. UNIT Pow;
  3. (**) Interface (**)
  4.  
  5.   FUNCTION Power(base, expon:Double):double;
  6.  
  7. (**) Implementation (**)
  8.  
  9.   FUNCTION Power(base, expon:Double):double;
  10.   BEGIN
  11.     IF base <= 0 THEN
  12.       BEGIN
  13.         WriteLn('*** WARNING *** base muse be greater than zero');
  14.         power := 0;
  15.       END
  16.     ELSE
  17.       Power := Exp(expon*ln(base));
  18.   END;
  19. END.
  20.